home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / HuntPalette.AMOS / HuntPalette.amosSourceCode
Encoding:
AMOS Source Code  |  1998-01-18  |  669 b   |  26 lines
  1. Load Iff "dh1:grimreaperhoschi.iff",0
  2. Screen Open 1,320,256,64,0
  3. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  4. Screen Copy 0 To 1
  5.  Extension_8_0456 "visual:demos/misc/mortality/tlu-mortality.exe",9
  6. ST=Start(9)
  7. NUM=0
  8. For A=0 To Length(9) Step 2
  9.   If Leek(ST+A)=0 and Leek(ST+A+4)<>0
  10.     V=0
  11.     For C=0 To 255
  12.       P=Leek(ST+A+C*4)
  13.       Exit If P<>(P and $FFFFFF)
  14.       If P<>0 : Inc V : End If 
  15.     Next 
  16.     If C=256 and V>10
  17.       For C=0 To 31
  18.         Colour C, Extension_8_042E(Leek(ST+A+C*4))
  19.       Next 
  20.       Wait Key 
  21.       Bsave "ram:pal"+ Extension_8_0EB8(NUM,3),ST+A To ST+A+1024
  22.       Pen 31 : Home : Print Hex$(A)
  23.       Inc NUM
  24.     End If 
  25.   End If 
  26. Next